home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 020a / grabb390.zip / DEMO.BAT < prev    next >
DOS Batch File  |  1991-05-31  |  2KB  |  65 lines
  1. ECHO OFF
  2. CLS
  3. ECHO        ┌──────────────────────────────────────┐
  4. ECHO        │  DEMO.BAT                            │
  5. ECHO        │  DEMONSTRATION OF GRABBER OFFSPRING  │
  6. ECHO        │  BATCH FILE CAPABILITIES             │
  7. ECHO        ├──────────────────────────────────────┤
  8. ECHO        │  PRESS ANY KEY TO CONTINUE,          │
  9. ECHO        │  OR CTRL-C TO ABORT . . .            │
  10. ECHO        └──────────────────────────────────────┘
  11. ECHO  
  12. PAUSE > NUL
  13. CLS
  14. :DEMO0
  15. DEMO0 /K12345 /F    ; keylist is 1,2,3,4,5 and don't clear screen on exit
  16.  
  17. IF ERRORLEVEL 255 GOTO :BREAK_PRESSED
  18. IF ERRORLEVEL 5 GOTO :EXIT
  19. IF ERRORLEVEL 4 GOTO :CYCLE_ALL
  20. IF ERRORLEVEL 3 GOTO :DEMO3
  21. IF ERRORLEVEL 2 GOTO :DEMO2
  22.  
  23. :DEMO1
  24. DEMO1 /F    ; don't clear screen on exit
  25. GOTO :DEMO0
  26.  
  27. :DEMO2
  28. DEMO2 /F    ; don't clear screen on exit
  29. GOTO :DEMO0
  30.  
  31. :DEMO3
  32. DEMO3 /F    ; don't clear screen on exit
  33. GOTO :DEMO0
  34.  
  35. :BREAK_PRESSED
  36. DEMO4 /T5 /F    ; wait 5 seconds and don't clear screen on exit
  37. GOTO :DEMO0
  38.  
  39. :CYCLE_ALL
  40. CLS
  41. ECHO This option will cycle through all three
  42. ECHO demonstration screens in a continuous loop.
  43. ECHO Each screen will be displayed for 5 seconds,
  44. ECHO or until you press [Esc], whichever occurs first.
  45. ECHO  
  46. ECHO To exit the loop and return to the main menu,
  47. ECHO press [Ctrl-C] at any screen.
  48. ECHO  
  49. ECHO Press any key to continue the demonstration . . . 
  50. ECHO  
  51. PAUSE > NUL
  52.  
  53. :CYCLE_LOOP
  54. DEMO1 /T5 /F            ; wait 5 seconds and don't clear screen on exit
  55. IF ERRORLEVEL 255 GOTO :DEMO0
  56. DEMO2 /T5 /F            ; ditto
  57. IF ERRORLEVEL 255 GOTO :DEMO0
  58. DEMO3 /T5 /F            ; ditto
  59. IF ERRORLEVEL 255 GOTO :DEMO0
  60. GOTO :CYCLE_LOOP
  61.  
  62. :EXIT
  63. DEMO5 /N    ; exit without any keypress, leaving image on the screen
  64. ECHO 
  65.